home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / RxSocket / Examples / pop3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  4.0 KB  |  139 lines
  1. /*
  2.     This is a simple pop3 client.
  3.     It connects a pop3 server and wait for commands.
  4.     Be sure you know what you are doing, before connect
  5.     to your popmail server and waste your mail.
  6.     Usage: pop3 [HOST] [AUTO/S]
  7.  
  8.     HOST    the hostname with the pop3 service to connect
  9.     AUTO    connect the pop3 service with login and password
  10.             as defined later.
  11. */
  12.  
  13. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  14. if AddLibrary("rexxsupport.library","rxsocket.library")~=0 then exit
  15.  
  16. prg="pop3"
  17.  
  18. if ~RMH_ReadArgs("HOST,AUTO/S") then do
  19.     call PrintFault(IoErr(),prg)
  20.     exit
  21. end
  22.  
  23. if parm.1.flag then do
  24.     /* PUT HERE YOUR DEFAULT HOST, LOGIN and PASS TO BE USED WITH AUTO OPTION */
  25.     host="YOR DEF POP3 HOST"
  26.     userName="YOR DEF LOGIN NAME"
  27.     passWord="YOUR DEF LOGIN PASS"
  28. end
  29. else do
  30.     if ~parm.0.flag then do
  31.         call PrintFault(116,"pop3")
  32.         exit
  33.     end
  34.     host=parm.0.value
  35. end
  36. /******************************************************/
  37. sock = OpenConnection("tcp","pop3",host)
  38. if sock<0 then do
  39.     select
  40.         when sock==-3 then
  41.             say "pop3: service pop3 not found"
  42.         when sock==-2 then
  43.             say "pop3: host <" || host || "> not found (" || HostErrorno() || ")"
  44.         when sock==-1 then
  45.             say "pop3: unable to connect pop3 service at <" || host || "> (" || errno() || ")"
  46.     end
  47.     exit
  48. end
  49. /******************************************************/
  50. CRLF = "D"x || "A"x
  51. ENDMULTI = "."
  52. call rec("SINGLE")
  53. if parm.1.flag then do
  54.     call sen("USER" userName)
  55.     call rec("SINGLE")
  56.     call sen("PASS" password)
  57.     call rec("SINGLE")
  58. end
  59. call init
  60. /******************************************************/
  61. do forever
  62.     parse pull com arg1 arg2 .
  63.     com = upper(com)
  64.     if symbol(com)~="LIT" then err=2
  65.     else do
  66.         err=0
  67.         if value(pop3.com.type)~="POP3."COM".TYPE" then do
  68.             if (pop3.com.args>0 & arg1=="") | (pop3.com.args>1 & arg2=="") then
  69.                 err=1
  70.         end
  71.         else err=2
  72.     end
  73.     if err~=0 then
  74.         select
  75.             when err=1 then say com "need" pop3.com.args "arguments"
  76.             when err=2 then say "unknown command" com
  77.         end
  78.     else do
  79.         if com=="QUITND" then exit
  80.         if arg2="" then call sen(com arg1)
  81.         else call sen(com arg1 arg2)
  82.         call rec(pop3.com.type)
  83.         say
  84.         if pop3.com.finish==1 then exit
  85.     end
  86. end
  87. exit
  88. /******************************************************/
  89. init:
  90.     pop3.USER.type="SINGLE";pop3.USER.args=1
  91.     pop3.PASS.type="SINGLE";pop3.PASS.args=1
  92.     pop3.STAT.type="SINGLE";pop3.STAT.args=0
  93.     pop3.LIST.type="MULTI"; pop3.LIST.args=0
  94.     pop3.RETR.type="MULTI"; pop3.RETR.args=1
  95.     pop3.NOOP.type="SINGLE";pop3.NOOP.args=0
  96.     pop3.QUIT.type="SINGLE";pop3.QUIT.args=0;pop3.QUIT.finish=1
  97.     pop3.QUITND.type="SINGLE";pop3.QUITND.args=0;pop3.QUITND.finish=1
  98.     pop3.TOP.type= "MULTI"; pop3.TOP.args=2
  99.     pop3.UIDL.type="SINGLE";pop3.UIDL.args=1
  100.     pop3.DELE.type= "SINGLE";pop3.DELE.args=1
  101.     pop3.RSET.type="SINGLE";pop3.RSET.args=0
  102.     return
  103. /******************************************************/
  104. sen:
  105. parse arg string
  106.     string = string || CRLF
  107.     res = send(sock,string)
  108.     if res~=length(string) then do
  109.         say "pop3: send error (" || errno() || ")"
  110.         exit
  111.     end
  112.     return
  113. /******************************************************/
  114. rec:
  115. parse arg comType
  116.     first=1
  117.     do forever
  118.         len = recvline(sock,"BUF",256)
  119.         if len<0 then do
  120.             say "pop3: recv error (" || errno() || ")"
  121.             exit
  122.         end
  123.         parse var buf buf "D"x
  124.         if first then do
  125.             if left(buf,1)=="-" then do
  126.                 parse var buf "-ERR " text
  127.                 say "   Error from server" text
  128.                 return
  129.             end
  130.             parse var buf buf "+OK " buf
  131.             first=0
  132.         end
  133.         if comType=="MULTI" then
  134.             if buf=ENDMULTI then return
  135.         say buf
  136.         if comType=="SINGLE" then return
  137.     end
  138. /******************************************************/
  139.